;
(defun read-list ()
	(list (read)))

(format t "~A~%" (read-list))
